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METHOD AND SYSTEM FOR ALLOWING A PERL APPLICATION TO 
COMMUNICATE WITH A DISTRIBUTED OBJECT VIA CORBA 
Field of the Invention 

The present invention relates to the field of distributed computing. 
5 Specifically, the present invention relates to a method and system for allowing a 
Practical Extraction Report Language (PERL) application to communicate with 
distributed objects via Common Object Request Broker Architecture (CORBA). 

Background Art 

10 It is proving increasingly useful, even virtually necessary for a computer 

program running on one computer to communicate with program running on 
another computer. For example, in a web based environment, a program on the 
client side may communicate with distributed object on the server side to assist the 
client program in its processing. However, the client program may be written in a 

15 different computer language and even running on a different computing platform. 
Consequently, the client program needs a way to bridge these technical 
differences to access the program on the server side. 

One conventional way to allow one program to communicate with another is 
20 to write a proprietary program. For example, the Practical Extraction Report 

Language (PERL) may be able to communicate with C++ and with JAVA by writing 
a proprietary program. However, the proprietary program may not be compliant 
with an industry standard. Therefore, applications may need to be re-written in 
order to use the proprietary program. 
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Common Object Request Broker Architecture (CORBA) provides for an 
industry standard that allows a computer program (e.g., a client program) to 
communicate with programs (e.g., objects) which are running either on another 
5 computer (e.g., a server) or on the same computer. This may be true even if the 
client computer system and server computer system are running programs written 
in different languages and running on different computing platforms. However, it is 
not true that all client programs may communicate with server programs in this 
fashion. For example, while the Object Management Group (OMG) has defined a 
1 0 specification for CORBA support for C++ and JAVA, the OMG has not provided 
such a specification for PERL. 

Therefore, a need exists for a method and system for allowing a PERL 
application to communicate with distributed object via CORBA. A further need 
1 5 exists for such a system and method which does not require changes to the server 
side distributed object code. A still further need exists for such a method and 
system which is transparent to the client (PERL) applications. 
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SUMMARY OF THE INVENTION 

The present invention provides for a method and system which allow a 
PERL application to communicate with distributed objects via CORBA. The 
present invention provides for such a method and system which does not require 
5 changes to the server side distributed object code. The present invention provides 
for such a method and system which is transparent to the client (PERL) 
application. The present invention provides these advantages and others not 
specifically mentioned above but described in the sections to follow. 

1 0 A method and system for allowing a PERL application to communicate with 

distributed objects is disclosed. One embodiment comprises a method in which 
first an adapter program receives a request from a PERL application. The PERL 
request specifies a distributed object with which the PERL application desires to 
communicate. The adapter program translates the request from the PERL 

1 5 application. For example, the adapter program translates PERL data structures 
into a format which is compliant with a communication program. Then, the adapter 
program makes a call to the communication program to access the distributed 
object via Common Object Request Broker Architecture (CORBA). After the 
adapter program receives a response from the communication program, the 

20 adapter translates the response to a form suitable for the PERL application. For 
example, the adapter program may need to translate a data structure into a PERL 
compliant form. Additionally, the adapter program may handle exceptions, as 
PERL may not handle these well. Then, the adapter program passes the response 
to the PERL application. 
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In one embodiment, the adapter program and the PERL application are 
written in different programming languages. For example, the adapter program is 
written in C/C++. 

In still another embodiment, the PERL application is located on a first 
computer system and the distributed object is located on a second computer 
system. For example, the second computer system may be a server. 

Yet another embodiment provides for a computer readable medium having 
stored therein a computer program that when executed by a processor causes a 
computer system to implement a method for allowing a PERL application to 
communicate with distributed objects via CORBA. 
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BRIEF DESCRIPTION OF THE DRAWINGS 

Figure 1 is a block diagram illustrating a client side PC with a PERL 
application communicating with a server object via Object Request Brokers 
(ORBs), according to an embodiment of the present invention. 

5 

Figure 2 is a logical block diagram illustrating the relationship between an 
adapter program and other software in a client/server environment, according to 
an embodiment of the present invention. 

1 0 Figure 3 is a logical block diagram illustrating source code and 

corresponding object code, according to an embodiment of the present invention. 

Figure 4 is a flowchart illustrating the steps of a process of a PERL 
application making a call to a distributed object, according to an embodiment of 
1 5 the present invention. 

Figure 5 is a schematic of a computer system, which may form a platform 
upon which to practice embodiments of the present invention. 

20 Figure 6 is a flowchart illustrating the steps of a process of converting data 

types so that a PERL application may access a distributed object via CORBA, 
according to an embodiment of the present invention. 
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DETAILED DESCRIPTION OF THE INVENTION 

In the following detailed description of the present invention, a system and 
method for allowing a Practical Extraction Report Language (PERL) application to 
communicate with distributed objects via Common Object Request Broker 
5 Architecture (CORBA), numerous specific details are set forth in order to provide a 
thorough understanding of the present invention. However, it will be recognized 
by one skilled in the art that the present invention may be practiced without these 
specific details or with equivalents thereof. In other instances, well known 
methods, procedures, components, and circuits have not been described in detail 
10 as not to unnecessarily obscure aspects of the present invention. 



NOTATION AND NOMENCLATURE 
Some portions of the detailed descriptions which follow are presented in 
terms of procedures, steps, logic blocks, processing, and other symbolic 

1 5 representations of operations on data bits that can be performed on computer 
memory. These descriptions and representations are the means used by those 
skilled in the data processing arts to most effectively convey the substance of their 
work to others skilled in the art. A procedure, computer executed step, logic block, 
process, etc., is here, and generally, conceived to be a self-consistent sequence of 

20 steps or instructions leading to a desired result. The steps are those requiring 
physical manipulations of physical quantities. Usually, though not necessarily, 
these quantities take the form of electrical or magnetic signals capable of being 
stored, transferred, combined, compared, and otherwise manipulated in a 
computer system. It has proven convenient at times, principally for reasons of 
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common usage, to refer to these signals as bits, values, elements, symbols, 
characters, terms, numbers, or the like. 

It should be borne in mind, however, that all of these and similar terms are 
5 to be associated with the appropriate physical quantities and are merely 

convenient labels applied to these quantities. Unless specifically stated otherwise 
as apparent from the following discussions, it is appreciated that throughout the 
present invention, discussions utilizing terms such as "indexing" or "processing" or 
"computing" or "translating" or "calculating" or "determining" or "scrolling" or 

1 0 "displaying" or "recognizing" or the like, refer to the action and processes of a 
computer system, or similar electronic computing device, that manipulates and 
transforms data represented as physical (electronic) quantities within the computer 
system's registers and memories into other data similarly represented as physical 
quantities within the computer system memories or registers or other such 

1 5 information storage, transmission or display devices. 

METHOD AN D SYSTEM FOR ALLOWING A PERL APPLICATION TO 

COMMUNICATE WITH DISTRIBUTED OBJECTS VIA CORBA 
The present invention provides for a method and system for allowing a 
20 Practical Extraction Report Language (PERL) application to communicate with 
distributed objects via Common Object Request Broker Architecture (CORBA). An 
embodiment provides for an adapter program, which functions as a sort of glue, 
between software layers on the PERL (client) side of the environment. The 
adapter program translates between the data structures used in PERL and those 
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used by the CORBA. Additionally, the adapter program handles other matters, 
such as handling programming exceptions. 



Figure 1 illustrates a PERL application 200 communicating with various 
5 server objects 208 via Object Request Brokers (ORBs) 204. When the PERL 
application 200 residing on a host computer system 202 wishes to communicate 
with an object 208 on a server 206, the PERL application 200 makes a request via 
the object request broker (ORB) 204. The server 206 may be on a Local Area 
Network (LAN), Wide Area Network (WAN), an Intranet, the Internet, or the like. 

1 0 The request passes through the adapter program 210, which performs the 

necessary translations for the PERL application 200 to inter-operate with the client 
ORB 204a. The ORB 204a on the client side (e.g., host computer 202) 
communicates with the ORB 204b on the server side with messages per the 
Genera! Inter-ORB Protocol (GIOP). If the server 206 is accessed via the Internet 

1 5 or Intranet, then messages are communicated via the Internet Inter-ORB Protocol 
(HOP). In another embodiment, the PERL application 200 and the object 208 
reside on the same computer system, for example, they both exist on host 
computer 202. 

20 The server ORB 204b converts the request into a call on the server object 

208 and then returns the results in a GIOP reply to the client ORB 204a. Then, the 
client ORB 204a converts the reply into a object reply, which the adapter program 
210 translates for the PERL application 200. Thus, the adapter program 210 
provides translations so that a PERL application 200 may communicate with the 

25 server object 208. This is a feat which the PERL application 200 would not 
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normally be able to do because of the lack of a standard specification for CORBA 
support for PERL. Furthermore, the process is transparent to the PERL application 
200, in that no modifications need to be made to the PERL application 200. In the 
preferred embodiment, the PERL language and the ORB libraries use the same 
5 operating system libraries. 

Figure 2 illustrates the relationship between an adapter program 210 and 
other software layers in a client/server environment, according to one 
embodiment. The client CORBA communication layer 214 communicates with the 
1 0 server CORBA layers communicate 21 6 via the GIOP. The client CORBA 

communication layer 214 may comprise a client stub (Figure 3, 314) and an ORB 
library (not shown). The adapter program 210 and the client CORBA 
communication layer 214 may be said to comprise an adapter layer 209. 

1 5 By providing PERL to C mappings, PERL external subroutine (XS) provides 

a good interface to C from PERL. Still referring to Figure 2, the XS generated 
adapter code 212, written in PERL, takes advantage of this to help build the bridge 
between PERL and CORBA. The adapter program 210 is written in C/C++, in the 
preferred embodiment. However, the present invention is not to be limited to 

20 writing the adapter program 21 0 in the C/C++ programming language. 

Still referring to Figure 2, the adapter program 210 receives a request from 
the PERL application 200. The adapter program 210 converts the PERL call to a 
CORBA request. The adapter program 210 also receives the object reply from, for 
25 example, the client CORBA communication layer 214. The adapter program 210 
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will make whatever changes are necessary to the reply before passing it on to the 
PERL application 200. 



Still referring to Figure 2, no modifications are required on the server side. 
5 The server object 208 need not be written in C/C++. The server object 208 may be 
written in, for example, JAVA. The server side may be operable to perform a 
business action, such as adding a new user or updating a user preference. The 
present invention does not require modifications to the server side. Additionally, 
embodiments of the present invention do not require any modifications to the 
10 PERL application 200. 



In one embodiment, the PERL application 200 calls a server 206, which 
contains data which is spread over many databases. For example, the data may 
be user preferences or the like. The server 206 contains an ORB 204b that the 

15 present embodiment is able to communication with because of the adapter 
program 210. In this fashion, the PERL application 200 may update user 
preferences which may be stored over many different databases, even if the PERL 
application 200 does not know the physical location of the databases. A server 
206 providing access via CORBA to data over many databases is described in 

20 U.S. patent application serial number , filed , entitled, 

"Method and System for a User Profile Repository", by Zoller et.al., attorney docket 
number CSCO 68341 and assigned to the assignee of the present invention. 
Said application is hereby incorporated in its entirety by reference. 
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Referring now to Figure 3, the adapter/client stub 314 is created by the 
CORBA implementation 308 (e.g., vendor tool) using the Interface Definition 
Language (IDL) 302. The adapter/client stub 314 is created in the 'C/C++' 
programming language, in the preferred embodiment. However, client stubs 
5 314 may be created in languages other than C/C++. The adapter/client stub 
314 is compiled with the adapter program 210 to provide the adapter object 
code 309. When the PERL application 200 runs it may dynamically link to 
adapter object code 309, the CORBA implementation object code 318, and the 
adapter PERL module object code 312. 

10 

Figure 4 is a flowchart illustrating the steps of a process 400 of allowing a 
PERL application 200 to communicate with a distributed object via CORBA, 
according to an embodiment of the present invention. In step 405, a PERL 
application 200 makes a call to communicate with a distributed object 208. 

15 

In step 410, an adapter program 210 receives the request for the distributed 
object 208 from the PERL application 200. The request (e.g., call) may be in the C 
programming language. The data structures in the request will be compliant with 
the Practical Extraction Report Language. 

20 

In step 415, the adapter program 210 translates the request (call). For 
example, data structures may need to be transformed from a PERL 200 compliant 
format to a client CORBA communication layer 214 compliant format. PERL 
external subroutine (XS) generated adapter code 212 may be used to provide 
25 mappings between PERL and C, thus assisting the translation process. The data 
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structure format for the client CORBA communication layer 214 will be compliant 
with the data structures on the server 206. The adapter 210 may be written in 
C/C++ and may be interfacing with a layer of code (e.g., client CORBA 
communication layer 214) also written in C/C++. Additionally, the adapter 
5 program 210 converts the PERL call to a CORBA request. 

In step 420, the client CORBA communication layer 214 receives, marshals, 
and passes the request on, according to standard specification. For example, the 
client CORBA communication layer 214 communicates with a server CORBA 
1 0 communication layer 216 via a GIOP or an HOP as specified in CORBA. The client 
CORBA communication layer 214 treats the request it receives like a request 
received from an application which is compliant with CORBA. A suitable object 
request broker (ORB) 204 may be used to facilitate this step. 

1 5 In step 425, the server CORBA communication layer 216 receives the 

request (e.g., it receives GIOP or HOP messages from the client CORBA 
communication layer 214), un-marshals it, and passes it on the server side, 
according to standard specification. For example, the server side treats the 
request (e.g., call or message) as if it had come from a client application for which 

20 CORBA support is specified by an industry standard. 

In step 426, the server object 208 processes the request and sends a 
response back to the server CORBA communication layer 216. In step 427, the 
server CORBA communication layer 216 receives the response, marshals it, and 
25 passes it on to the client CORBA communication layer 214. Both of these steps 
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occur per standard specification. For example, they occur per a standard specified 
by the Object Management Group (OMG). 

In step 430, the client CORBA communication layer 214 receives the 
5 response and passes it on to the adapter program 21 0 per standard specification. 
In this embodiment, the adapter 210 and the client CORBA communication layer 
214 are written in the same programming language (e.g., C/C++). 



In step 435, the adapter program 210 receives the response, translates it, 
1 0 and passes the response to the PERL application 200. In addition to translation, 
the adapter program 210 may perform other functions. For example, the 
programming language used by the adapter program 210 may have provisions for 
exceptions, whereas PERL 200 may not. Therefore, if an exception occurs, the 
adapter program 210 will handle the exception and notify the PERL application 
15 200 in a suitable fashion. 



Figure 6 illustrates the steps of a process 600 of translating a request from a 
PERL application 200 such that a distributed object 208 may be accessed via 
CORBA. In step 605, the PERL application 200 calls a adapter program 210, 
20 providing a list of requested fields and an empty list in which to store the returned 
values. In one embodiment, the adapter program 210 comprises a dynamic 
shared library. 
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In step 610 the adapter program 210 de-mangles the input and output array 
references. Next, the adapter program 210 converts the input to a C-style input, in 
step 615. 

5 In step 620, the adapter program 210 converts the field list requested by the 

PERL application 200 into a CORBA equivalent list. 

In step 625, the distributed object server is located and a call is made to it 
with the appropriate parameters. 

10 

When the values are returned from the call to the distributed object 208, the 
adapter program 210 converts the returned values into a C-style format, in step 
630. 

1 5 In step 635, the adapter program 210 makes the output array reference 

point to the C-style format data. In this fashion, the PERL application 200 is able to 
access the returned data. Then, control is returned to the PERL application 200, in 
step 640. 

20 Appendix A contains exemplary psuedocode for a PERL application 200, 

exemplary psuedocode for a translation performed by the adapter program 210, 
as well as an exemplary IDL definition to generate a client stub 214. 

Figure 5 illustrates circuitry of host computer system 100, which may form 
25 a platform upon which to perform an embodiment of the present invention. 
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Computer system 100 includes an address/data bus 99 for communicating 
information, a central processor 101 coupled with the bus for processing 
information and instructions, a volatile memory 102 (e.g., random access 
memory RAM) coupled with the bus 99 for storing information and instructions 
for the central processor 101 and a non-volatile memory 103 (e.g., read only 
memory ROM) coupled with the bus 99 for storing static information and 
instructions for the processor 101 . Computer system 100 also includes an 
optional data storage device 104 coupled with the bus 99 for storing information 
and instructions. 

Also included in computer system 100 of Figure 5 is an optional 
alphanumeric input device 106. Device 106 can communicate information and 
command selections to the central processor 101. For example, customer orders 
may be entered with device 106, as well as an order to release a credit hold. 
System 100 also includes an optional cursor control or directing device 107 
coupled to the bus 99 for communicating user input information and command 
selections to the central processor 101 . The display device 105 utilized with the 
computer system 100 may be a liquid crystal device, cathode ray tube (CRT), field 
emission device (FED, also called flat panel CRT) or other display device suitable 
for creating graphic images and alphanumeric characters recognizable to the 
user. Signal communication device 108 is also coupled to bus 99. 

The preferred embodiment of the present invention, a system and method 
for allowing a Practical Extraction Report Language (PERL) application to 
communicate with distributed object via Common Object Request Broker 
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Architecture (CORBA), is thus described. While the present invention has been 
described in particular embodiments, it should be appreciated that the present 
invention should not be construed as limited by such embodiments, but rather 
construed according to the below claims. 
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CLAIMS 
We claim: 

1 . A method for allowing communication between a Practical Extraction Report 
5 Language (PERL) program and a distributed object, comprising the steps of: 

a) receiving a request from said PERL program, said request specifying 
said distributed object; 

b) translating said request from said PERL program to a format which is 
suitable for use with a Common Object Request Broker Architecture (CORBA); 

1 0 c) making a call to access said distributed object via the Common Object 

Request Broker Architecture (CORBA); 

d) receiving a response from said call in said step c); 

e) translating said response to a form which is substantially compliant with 
the Practical Extraction Report Language; and 

1 5 f) passing said translated response from said step e) to said PERL program. 

2. The method of Claim 1 wherein said step b) comprises the step of: 

b1) an adapter program converting a data structure specified by said PERL 
request into a form which is substantially compliant with a communication 
20 program. 

3. The method of Claim 2 wherein said communication program comprises a 
client stub. 
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4. The method of Claim 1 wherein said step b) comprises the step of: 

b1) an adapter program converting said PERL request into a request which 
is substantially compliant with the Common Object Request Broker Architecture 
(CORBA) format. 

5. The method of Claim 4 wherein said adapter program is written in a first 
programming language and said PERL application is written in second 
programming language, said first and said second programming languages being 
different. 

6. The method of Claim 4 wherein said adapter program is substantially 
compliant with the C programming language. 

7. The method of Claim 1 wherein said PERL program is located on a first 
computer system and said distributed object is located on a second computer 
system. 

8. The method of Claim 1 wherein said step e) comprises the step of: 

e1) an adapter program converting a data structure into a form which is 
substantially compliant with the Practical Extraction Report Language. 

9. The method of Claim 1 wherein said step e) comprises the step of: 

e1) for a plurality of objects described in an Interface Definition Language 
(IDL), providing a corresponding plurality of translations in an adapter program, 
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wherein said adapter program translates between a communication program and 
said PERL program. 

10. The method of Claim 1 further comprising the step of: 

g) said PERL program accessing user information over a number of 
databases by connecting to a server via said CORBA. 

11. A computer readable medium having stored thereon program instructions 
for allowing a Practical Extraction Report Language (PERL) program to 
communicate with a distributed object via Common Object Request Broker 
Architecture (CORBA), said instructions carrying out a method comprising the 
steps of: 

a) receiving a request from said PERL program, said request specifying 
said distributed object; 

b) translating said request from said PERL program to a format which is 
suitable for use with a Common Object Request Broker Architecture (CORBA); 

c) making a call to access said distributed object via the Common Object 
Request Broker Architecture (CORBA); 

d) receiving a response from said call in said step c); 

e) translating said response to a form which is substantially compliant with 
the Practical Extraction Report Language; and 

f) passing said translated response from said step e) to said PERL program. 

12. The computer readable medium of Claim 1 1 wherein said step b) of said 
method comprises the step of: 
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fc>1) converting said PERL request into a request which is substantially 
compliant with the Common Object Request Broker Architecture (CORBA) format. 

13. The computer readable medium of Claim 1 1 having further stored therein 
5 said PERL program; and 

wherein said distributed object is located on a remote computer system. 

14. The computer readable medium of Claim 11 wherein said program 
comprises a client stub. 

10 

15. The computer readable medium of Claim 14 wherein said step b) of said 
method comprises the step of: 

b1) converting a data structure into a form which is substantially compliant 
with the data structures of said client stub. 

15 

1 6. The computer readable medium of Claim 1 1 having further stored therein 
said PERL program and said distributed object. 

17. The computer readable medium of Claim 1 1 wherein said step e) of said 
20 method comprises the step of: 

e1) converting a data structure into a form which is substantially compliant 
with the Practical Extraction Report Language. 
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18. The computer readable medium of Claim 1 1 wherein said step e) of said 
method comprises the step of: 

e1) for a plurality of objects described in an Interface Definition Language 
(IDL), providing a corresponding plurality of translations. 

5 

19. The computer readable medium of Claim 11 wherein said program 
comprises a module generated by Practical Extraction Report Language External 
Subroutine (PERL-XS). 

1 0 20. In a computer system, means for providing communication between a 
Practical Extraction Report Language (PERL) program and a distributed object 
comprising: 

a) means for translating a call from said PERL program to a format 
substantially compliant with a Common Object Request Broker Architecture 

15 (CORBA);and 

b) means for translating a response from said call to a format substantially 
compliant with the Practical Extraction Report Language. 

21 . The means for providing communication of Claim 20 further comprising 
20 means to access said distributed object via Common Object Request Broker 

Architecture (CORBA). 

22. The means for providing communication of Claim 20 wherein said means 
for translating said call from said PERL program comprises: 
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means for converting a data structure into a form which is substantially 
compliant with a program which accesses said distributed object via said Common 
Object Request Broker Architecture (CORBA). 

23. The means for providing communication of Claim 20 wherein said means 
for translating said call from said PERL program comprises: 

means for converting said PERL request into a request which is 
substantially compliant with the Common Object Request Broker Architecture 
(CORBA) format. 
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METHOD AND SYSTEM FOR ALLOWING A PERL APPLICATION TO 
COMMUNICATE WITH DISTRIBUTED OBJECT VIA CORBA 



ABSTRACT 

5 A method and system for allowing a PERL application to communicate with 

distributed objects. One embodiment comprises a method in which first an 
adapter program receives a request from a PERL application. The PERL request 
specifies a distributed object with which the PERL application desires to 
communicate. The adapter program translates the request from the PERL 

1 0 application. For example, the adapter program translates PERL data structures 
into a format which is compliant with a communication program. Then, the adapter 
program calls the communication program to access the distributed object via 
Common Object Request Broker Architecture (CORBA). After the adapter program 
receives a response from the communication program, the adapter translates the 

1 5 response to a form suitable for the PERL application. For example, the adapter 
program may need to translate a data structure into a PERL compliant form. Then, 
the adapter program passes the response to the PERL application. 
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Appendix A 

++++++++ Perl Program Start++++++++++++++++++++++++++++++ 

# Before 'make install' is performed this script should be runnable with 
5 # 'make test'. After 'make install' it should work as 'perl test.pr 

###############We start with some code to print on failure. 

# Change 1.1 below to 1.. last Jest _to_print. 

10 

BEGIN {$1 = 1; print "1..1\n";} 

END {print "not ok 1\n" unless $loaded;} 

#### This package performs important work. Use h2xs utility to develop 
1 5 ### this package 

#### Look for man pages "perlxs" and "perlxstut" for instructions 
#### useMytest2; 

$loaded = 1; 
20 print "ok 1\n"; 

######################## End of print on failure code 
#lnsert your test code below 

25 

# This is a list of fields for which values are to be fetched from distributed 

# server object 

©fields = { "viewl. fieidr, "viewl .field2", "viewl .field3" ); 

30 # This is an empty list in which the values for above mentioned fields will 

# be returned 
@retfields = (); 

# One has to call the getValues function provided by Mytest2 package to 
35 # access distributed object 

# Mytest2 is a perl module which in turn connects to a dynamic shared 

# library which has implemented 

# the getValues function 

40 $ret = Mytest2::getVaiues(\@fields, \@retfie!ds); 

# print the values of the fields 

# instead of printing these fields, they can be used in Perl programs just 

# like other data 

45 

foreach my $rf ( ©retfields ) { 
print "Output: $rf\n" 

} 

+++++++++ Perl Program End ++++++++++++++++++++++++++ 
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+Dynamic shared library - - Implementation of getValues function Start + 
int 

getValues (in, out) 
SV* in; 
SV* out; 
{ 

int reqlen = -1, i, no_ele_ret = 0; 



AV* input; 
AV* output; 

SV* strs = SvRV(in); /* de-mangle the input array reference */ 
SV*rets = SvRV (out); /* de-mangle the output array reference */ 
15 SV*temp; 

char** reqFields = NULL; /* Requested fields reference */ 
char** returnFields = NULL; /*Returned fields reference */ 
int retval; 

20 

if(!SvROK(in)) /* earlier it was "in" 7 

croak ("samir: not a reference SV*"); 
if(SvTYPE(strs) ! = SVt_PVAV ) 
croak ("samir:: not a reference to an array"); 
25 input = (AV*)strs; /* finally got the reference */ 

if(!SvROK(out)) /* earlier it was */ 

croak ("samir: not a reference SV*"); 
if(SvTYPE(strs) ! = SVt^PVAV ) 
30 croak ("samir:: not a reference to an array"); 

output = (A V*) rets; /* finally got the reference */ 



/* convert the input to a C style input 7 
reqlen = avjen(input) + 1; 



reqFields = (char**) malloc (sizeof(char*) *reqlen); 

for (i=0; i <reqlen; i ++ ) 

{ 

STRLEN stringLength; 
40 SV** stringHandle = av_fetch(input, i, 0 ); 

char*stringValue = SvPV("stringHandle, stringLength ); 

reqFields[i] = stringValue; 

} 

45 /* At this point we have all the requested field names accessible through 

reqFields reference */ 

/* We need to get the returned values from a distributed object and make 
returnFields point to it */ 
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/* Convert the requested field list into corba equivalent list */ 
// Initialize the ORB. 

CORBA::ORB_ptr orb = CORBA::ORB_init(argc, argv); 

// Locate the distributed server object 

upr:: UPR_Record„var svrOhj = 

upr:;UPR_Record::_bind("DistributeServerObjectName"); 



// Call server object with appropriate parameters 

// Here the parameters to the getValues functions could be input and /or 

// output parameters 

(ReturnedValue) = svrObj->getValues("Appropriate params for server object 
15 including request fields"); 

/* Convert the "ReturnedValue" list into a format that could be accessed 
using returnFields reference 7 

20 return retval; // return the appropriate value as expected 

} 

++ Dynamic shared library - - Implementation of getValues function End 

25 +++++++++ Sample CORBA IDL Definition Start +++++++++++ 

module upr 
{ 

typedef sequence <string> string Jist; 

30 

interface UPR_Record 
{ 

// General Get/Set API (Strings/Lists) 
stringjist getValues( 
35 in string appName, 

in stringjist fieldNames ); 

}; 



}; 



******** 



// 

// Use this IDL definition to generate the client stubs for above program to 
// use. 

// Any CORBA implementation vendor's software can be used to do this. 

II ******* 

+++++++++ Sample CORBA IDL Definition End 
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